inherited FCadastroPedidoContrato: TFCadastroPedidoContrato
  Left = 292
  Top = 186
  Caption = 'Ordem de Faturamento'
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 16
  inherited pcCadastro: TPageControl
    ActivePage = TsCadastro
    inherited TsPesquisa: TTabSheet
      inherited dbgPesquisaPadra: TDBGrid
        Columns = <
          item
            Expanded = False
            FieldName = 'PED_CODIGO'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'PED_CONTRATO_DESC'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'PED_NUMERO_RPS'
            Title.Alignment = taCenter
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'PED_NUMERO_NF'
            Title.Alignment = taCenter
            Visible = True
          end>
      end
    end
    inherited TsCadastro: TTabSheet
      inherited panel1: TPanel
        inherited panel2: TPanel
          inherited DBNavigator1: TDBNavigator
            Hints.Strings = ()
          end
        end
        inherited panel3: TPanel
          object Button1: TButton
            Left = 5
            Top = 5
            Width = 153
            Height = 25
            Caption = 'Gerar NFs'
            TabOrder = 4
            OnClick = Button1Click
          end
        end
        object PageControl: TPageControl
          Left = 1
          Top = 36
          Width = 842
          Height = 389
          ActivePage = TSNota
          Align = alClient
          TabOrder = 2
          object TSNota: TTabSheet
            Caption = 'Cabe'#231'alho'
            object Label6: TLabel
              Left = 84
              Top = 8
              Width = 49
              Height = 16
              Caption = 'Contrato'
            end
            object Label25: TLabel
              Left = 5
              Top = 8
              Width = 40
              Height = 16
              Caption = 'C'#243'digo'
            end
            object Label56: TLabel
              Left = 131
              Top = 53
              Width = 97
              Height = 16
              Caption = 'Ar'#233'a de Atua'#231#227'o'
            end
            object Label87: TLabel
              Left = 5
              Top = 98
              Width = 82
              Height = 16
              Caption = 'Munic'#237'pio (F8)'
              Font.Charset = ANSI_CHARSET
              Font.Color = clBlack
              Font.Height = -13
              Font.Name = 'Arial'
              Font.Style = []
              ParentFont = False
            end
            object Label1: TLabel
              Left = 516
              Top = 308
              Width = 84
              Height = 16
              Caption = 'N'#186' Nota Fiscal'
            end
            object Label2: TLabel
              Left = 5
              Top = 52
              Width = 27
              Height = 16
              Caption = 'Data'
            end
            object Label4: TLabel
              Left = 413
              Top = 308
              Width = 63
              Height = 16
              Caption = 'N'#186' do RPS'
            end
            object Label78: TLabel
              Left = 6
              Top = 143
              Width = 144
              Height = 16
              Caption = 'Detalhamento do Servi'#231'o'
              Font.Charset = ANSI_CHARSET
              Font.Color = clBlack
              Font.Height = -13
              Font.Name = 'Arial'
              Font.Style = []
              ParentFont = False
            end
            object Label9: TLabel
              Left = 308
              Top = 307
              Width = 86
              Height = 16
              Caption = 'C'#243'digo da NFs'
            end
            object Label13: TLabel
              Left = 516
              Top = 8
              Width = 121
              Height = 16
              Caption = 'Centro de Custo (F8)'
            end
            object DBLCBContrato: TDBLookupComboBox
              Left = 83
              Top = 24
              Width = 423
              Height = 22
              Ctl3D = False
              DataField = 'PED_CONTRATO'
              DataSource = dsCadastro
              KeyField = 'CON_CODIGO'
              ListField = 'CON_DESCRICAO'
              ListSource = DSContrato
              ParentCtl3D = False
              TabOrder = 1
              OnExit = DBLCBContratoExit
            end
            object edCodigo: TDBEdit
              Left = 5
              Top = 24
              Width = 69
              Height = 22
              TabStop = False
              Ctl3D = False
              DataField = 'PED_CODIGO'
              DataSource = dsCadastro
              ParentCtl3D = False
              ReadOnly = True
              TabOrder = 0
            end
            object DBArea: TDBLookupComboBox
              Left = 130
              Top = 69
              Width = 376
              Height = 22
              Ctl3D = False
              DataField = 'PED_AREA'
              DataSource = dsCadastro
              KeyField = 'ARE_CODIGO'
              ListField = 'ARE_DESCRICAO'
              ListSource = DSArea
              ParentCtl3D = False
              TabOrder = 4
              OnKeyDown = DBAreaKeyDown
            end
            object DBLMunicipio: TDBLookupComboBox
              Left = 5
              Top = 116
              Width = 292
              Height = 22
              Ctl3D = False
              DataField = 'PED_MUNICIPIO'
              DataSource = dsCadastro
              Font.Charset = ANSI_CHARSET
              Font.Color = clBlack
              Font.Height = -13
              Font.Name = 'Arial'
              Font.Style = []
              KeyField = 'MU_CODIGO'
              ListField = 'NOME'
              ListSource = DSMunicipio
              ParentCtl3D = False
              ParentFont = False
              TabOrder = 5
              OnKeyDown = DBLMunicipioKeyDown
            end
            object DBDEData: TDBDateEdit
              Left = 5
              Top = 67
              Width = 115
              Height = 24
              DataField = 'PED_DATA'
              DataSource = dsCadastro
              Ctl3D = False
              ButtonWidth = 26
              NumGlyphs = 2
              ParentCtl3D = False
              TabOrder = 3
            end
            object DBRadioGroup1: TDBRadioGroup
              Left = 145
              Top = 290
              Width = 152
              Height = 57
              Caption = '  Situa'#231#227'o do Pedido  '
              DataField = 'PED_SITUACAO'
              DataSource = dsCadastro
              Items.Strings = (
                'N'#227'o Pago'
                'Pago')
              ReadOnly = True
              TabOrder = 6
              Values.Strings = (
                '0'
                '1')
            end
            object DBRadioGroup2: TDBRadioGroup
              Left = 5
              Top = 290
              Width = 128
              Height = 57
              Caption = '  Fase do Pedido  '
              DataField = 'PED_FASE_PEDIDO'
              DataSource = dsCadastro
              Items.Strings = (
                'N'#227'o Gerou NFs'
                'Gerou NFs')
              ReadOnly = True
              TabOrder = 7
              Values.Strings = (
                '0'
                '1')
            end
            object DBRadioGroup3: TDBRadioGroup
              Left = 309
              Top = 103
              Width = 196
              Height = 36
              Caption = '  Servi'#231'o  '
              Columns = 2
              DataField = 'PED_REIDI'
              DataSource = dsCadastro
              Items.Strings = (
                'Sem REIDI'
                'Com REIDI')
              TabOrder = 8
              Values.Strings = (
                '0'
                '1')
            end
            object edDescServicos: TDBMemo
              Tag = 5
              Left = 6
              Top = 160
              Width = 814
              Height = 128
              Ctl3D = False
              DataField = 'PED_SERVICO'
              DataSource = dsCadastro
              MaxLength = 1000
              ParentCtl3D = False
              ScrollBars = ssVertical
              TabOrder = 9
            end
            object Edit1: TEdit
              Left = 411
              Top = 324
              Width = 97
              Height = 22
              Ctl3D = False
              ParentCtl3D = False
              TabOrder = 10
            end
            object Edit2: TEdit
              Left = 515
              Top = 324
              Width = 97
              Height = 22
              Ctl3D = False
              ParentCtl3D = False
              TabOrder = 11
            end
            object DBLCBCentroCusto: TDBLookupComboBox
              Left = 514
              Top = 24
              Width = 282
              Height = 22
              Ctl3D = False
              DataField = 'PED_CENTRO_CUSTO'
              DataSource = dsCadastro
              KeyField = 'CODIGO'
              ListField = 'DESCRICAO'
              ListSource = DSCentro
              ParentCtl3D = False
              TabOrder = 2
              OnEnter = DBLCBCentroCustoEnter
              OnKeyDown = DBLCBCentroCustoKeyDown
            end
            object Edit3: TEdit
              Left = 306
              Top = 324
              Width = 97
              Height = 22
              Ctl3D = False
              ParentCtl3D = False
              TabOrder = 12
            end
          end
          object TSItensNota: TTabSheet
            Caption = 'Itens'
            ImageIndex = 2
            object Label32: TLabel
              Left = 87
              Top = 85
              Width = 69
              Height = 16
              Caption = 'Servi'#231'o (F8)'
            end
            object Label26: TLabel
              Left = 4
              Top = 85
              Width = 40
              Height = 16
              Caption = 'C'#243'digo'
            end
            object Label3: TLabel
              Left = 315
              Top = 43
              Width = 73
              Height = 16
              Caption = 'Encarregado'
            end
            object Label5: TLabel
              Left = 623
              Top = 88
              Width = 30
              Height = 16
              Caption = 'Valor'
            end
            object Label7: TLabel
              Left = 6
              Top = 42
              Width = 58
              Height = 16
              Caption = 'N'#186' Pedido'
            end
            object Label8: TLabel
              Left = 151
              Top = 42
              Width = 59
              Height = 16
              Caption = 'N'#186' Projeto'
            end
            object DBLCBProduto: TDBLookupComboBox
              Left = 87
              Top = 102
              Width = 521
              Height = 22
              Hint = '(F7) Todos - (F8) Fornecedor'
              Ctl3D = False
              DataField = 'ITENSPED_SERVICO'
              DataSource = dsItensPedidoContrato
              KeyField = 'PROD_CODIGO'
              ListField = 'PROD_DESCRICAOENT'
              ListSource = DSProduto
              ParentCtl3D = False
              ParentShowHint = False
              ShowHint = True
              TabOrder = 4
              OnKeyDown = DBLCBProdutoKeyDown
              OnKeyPress = DBLCBProdutoKeyPress
            end
            object DBCodProduto: TDBEdit
              Left = 4
              Top = 102
              Width = 75
              Height = 22
              Ctl3D = False
              DataField = 'ITENSPED_SERVICO'
              DataSource = dsItensPedidoContrato
              ParentCtl3D = False
              TabOrder = 3
              OnExit = DBCodProdutoExit
            end
            object Panel4: TPanel
              Left = 0
              Top = 0
              Width = 834
              Height = 33
              TabOrder = 7
              object BitInseriItem: TBitBtn
                Tag = 10
                Left = 3
                Top = 5
                Width = 80
                Height = 23
                Caption = '&Incluir'
                TabOrder = 0
                OnClick = BitInseriItemClick
                Glyph.Data = {
                  76010000424D7601000000000000760000002800000020000000100000000100
                  04000000000000010000130B0000130B00001000000000000000000000000000
                  800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
                  FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
                  333B33FF33337F3333F73BB3777BB7777BB3377FFFF77FFFF77333B000000000
                  0B3333777777777777333330FFFFFFFF07333337F33333337F333330FFFFFFFF
                  07333337F3FF3FFF7F333330F00F000F07333337F77377737F333330FFFFFFFF
                  07333FF7F3FFFF3F7FFFBBB0F0000F0F0BB37777F7777373777F3BB0FFFFFFFF
                  0BBB3777F3FF3FFF77773330F00F000003333337F773777773333330FFFF0FF0
                  33333337F3FF7F37F3333330F08F0F0B33333337F7737F77FF333330FFFF003B
                  B3333337FFFF77377FF333B000000333BB33337777777F3377FF3BB3333BB333
                  3BB33773333773333773B333333B3333333B7333333733333337}
                NumGlyphs = 2
              end
              object BitEditarItem: TBitBtn
                Tag = 10
                Left = 90
                Top = 5
                Width = 80
                Height = 23
                Caption = '&Editar'
                TabOrder = 1
                OnClick = BitEditarItemClick
                Glyph.Data = {
                  76010000424D7601000000000000760000002800000020000000100000000100
                  04000000000000010000120B0000120B00001000000000000000000000000000
                  800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
                  FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000
                  000033333377777777773333330FFFFFFFF03FF3FF7FF33F3FF700300000FF0F
                  00F077F777773F737737E00BFBFB0FFFFFF07773333F7F3333F7E0BFBF000FFF
                  F0F077F3337773F3F737E0FBFBFBF0F00FF077F3333FF7F77F37E0BFBF00000B
                  0FF077F3337777737337E0FBFBFBFBF0FFF077F33FFFFFF73337E0BF0000000F
                  FFF077FF777777733FF7000BFB00B0FF00F07773FF77373377373330000B0FFF
                  FFF03337777373333FF7333330B0FFFF00003333373733FF777733330B0FF00F
                  0FF03333737F37737F373330B00FFFFF0F033337F77F33337F733309030FFFFF
                  00333377737FFFFF773333303300000003333337337777777333}
                NumGlyphs = 2
              end
              object BitExcluirItem: TBitBtn
                Tag = 10
                Left = 177
                Top = 5
                Width = 80
                Height = 23
                Caption = '&Excluir'
                TabOrder = 2
                OnClick = BitExcluirItemClick
                Glyph.Data = {
                  B2050000424DB205000000000000360400002800000012000000130000000100
                  0800000000007C010000C30E0000C30E00000001000000000000000000007B00
                  0000BD000000FF0000007B7B000000FF0000FFFF000000315A0008427300084A
                  730000007B007B007B00084A7B0008527B0021527B00007B7B007B7B7B00004A
                  840008528400105284002963840008528C00085A8C00185A8C0018638C002963
                  8C0008529400185A9400296B9400316B94002973940031739400085A9C001863
                  9C0018739C0029739C0031739C0031849C00005AA5002173A5003973A500297B
                  A500186BAD00106BB500317BB5002984B5004A8CB500086BBD000073BD001073
                  BD001873BD00217BBD004284BD00318CBD004A8CBD005294BD005A9CBD00BDBD
                  BD001073C600007BC600217BC600428CC6004A8CC6005A9CC6000084CE000884
                  CE00398CCE005A9CCE00639CCE001884D6002184D600088CD600108CD6004294
                  D600399CD6004A9CD600529CD6005A9CD6005AA5D60063ADD6001884DE002184
                  DE00188CDE001094DE001894DE003194DE00299CDE004AA5DE005AA5DE004AB5
                  DE00189CE700219CE700429CE7005AA5E7005AADE70063ADE7006BB5E70021A5
                  EF0029A5EF0031A5EF0063B5EF006BBDEF0029ADF70031ADF7006BBDF7000000
                  FF00FF00FF0031B5FF0039B5FF0042B5FF0039BDFF0042BDFF0042C6FF004AC6
                  FF006BC6FF004ACEFF0052CEFF0052D6FF005ADEFF0063E7FF0000FFFF00FFFF
                  FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
                  FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
                  FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
                  FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
                  FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
                  FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
                  FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
                  FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
                  FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
                  FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
                  FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
                  FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
                  FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
                  FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
                  FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
                  FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
                  FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00393939393939
                  3939393939393939393939690000396939393939393939393939393939396939
                  0000396969393910101010101010101010693939000039696969000000000000
                  0000000069693939000039396969007879797978797979696939393900003939
                  3969697903030303030379691039393900003939396969697978797979786969
                  1039393900003939393969696903030369696900103939390000393939390069
                  6969797869697900103939390000393939390079036969696903790010393939
                  0000393939390079796969696978790010393939000039393939007903696969
                  6900000010393939000039393939007869697900696979001039393900003939
                  3939006969697900696969693939393900003939396969697978790079003969
                  6939393900003969696969000000000000393939696939390000396969693939
                  3939393939393939393969390000393939393939393939393939393939393969
                  00003939393939393939393939393939393939390000}
              end
              object DBNavigator2: TDBNavigator
                Tag = 11
                Left = 728
                Top = 5
                Width = 80
                Height = 23
                VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
                TabOrder = 3
              end
              object stItens: TStaticText
                Left = 603
                Top = 9
                Width = 117
                Height = 20
                Alignment = taRightJustify
                Caption = ' Reg: 10000/10000 '
                TabOrder = 4
              end
            end
            object Panel6: TPanel
              Left = 0
              Top = 146
              Width = 834
              Height = 33
              Align = alBottom
              TabOrder = 6
              object BitSalvarItem: TBitBtn
                Tag = 10
                Left = 656
                Top = 5
                Width = 80
                Height = 23
                Caption = '&Salvar'
                TabOrder = 0
                OnClick = BitSalvarItemClick
                Glyph.Data = {
                  76010000424D7601000000000000760000002800000020000000100000000100
                  04000000000000010000130B0000130B00001000000000000000000000000000
                  800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
                  FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333330070
                  7700333333337777777733333333008088003333333377F73377333333330088
                  88003333333377FFFF7733333333000000003FFFFFFF77777777000000000000
                  000077777777777777770FFFFFFF0FFFFFF07F3333337F3333370FFFFFFF0FFF
                  FFF07F3FF3FF7FFFFFF70F00F0080CCC9CC07F773773777777770FFFFFFFF039
                  99337F3FFFF3F7F777F30F0000F0F09999937F7777373777777F0FFFFFFFF999
                  99997F3FF3FFF77777770F00F000003999337F773777773777F30FFFF0FF0339
                  99337F3FF7F3733777F30F08F0F0337999337F7737F73F7777330FFFF0039999
                  93337FFFF7737777733300000033333333337777773333333333}
                NumGlyphs = 2
              end
              object BitCancelarItem: TBitBtn
                Tag = 10
                Left = 742
                Top = 5
                Width = 80
                Height = 23
                Caption = '&Cancelar'
                TabOrder = 1
                OnClick = BitCancelarItemClick
                Glyph.Data = {
                  76010000424D7601000000000000760000002800000020000000100000000100
                  04000000000000010000130B0000130B00001000000000000000000000000000
                  800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
                  FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
                  3333333333FFFFF3333333333999993333333333F77777FFF333333999999999
                  33333337777FF377FF3333993370739993333377FF373F377FF3399993000339
                  993337777F777F3377F3393999707333993337F77737333337FF993399933333
                  399377F3777FF333377F993339903333399377F33737FF33377F993333707333
                  399377F333377FF3377F993333101933399377F333777FFF377F993333000993
                  399377FF3377737FF7733993330009993933373FF3777377F7F3399933000399
                  99333773FF777F777733339993707339933333773FF7FFF77333333999999999
                  3333333777333777333333333999993333333333377777333333}
                NumGlyphs = 2
              end
            end
            object DBGrid1: TDBGrid
              Tag = 3
              Left = 0
              Top = 179
              Width = 834
              Height = 179
              Align = alBottom
              DataSource = dsItensPedidoContrato
              Options = [dgTitles, dgIndicator, dgColumnResize, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
              TabOrder = 8
              TitleFont.Charset = ANSI_CHARSET
              TitleFont.Color = clWindowText
              TitleFont.Height = -13
              TitleFont.Name = 'Arial'
              TitleFont.Style = []
              Columns = <
                item
                  Expanded = False
                  FieldName = 'ITENSPED_NUMERO_PEDIDO'
                  Title.Alignment = taCenter
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'ITENSPED_NUMERO_PROJETO'
                  Title.Alignment = taCenter
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'ITENSPED_VALORTOTAL'
                  Visible = True
                end>
            end
            object DBLEncarregado: TDBLookupComboBox
              Left = 314
              Top = 59
              Width = 294
              Height = 22
              Hint = '(F7) Todos - (F8) Fornecedor'
              Ctl3D = False
              DataField = 'ITENSPED_ENCARREGADO'
              DataSource = dsItensPedidoContrato
              KeyField = 'VEND_CODIGO'
              ListField = 'VEND_NOME'
              ListSource = DSEncarregado
              ParentCtl3D = False
              ParentShowHint = False
              ShowHint = True
              TabOrder = 2
              OnKeyDown = DBLEncarregadoKeyDown
            end
            object ValorTotalServico: TRxDBCalcEdit
              Left = 621
              Top = 103
              Width = 99
              Height = 21
              DataField = 'ITENSPED_VALORTOTAL'
              DataSource = dsItensPedidoContrato
              Ctl3D = False
              DecimalPlaces = 15
              DisplayFormat = '0.,00'
              ButtonWidth = 0
              NumGlyphs = 2
              ParentCtl3D = False
              TabOrder = 5
            end
            object DBEPedido: TDBEdit
              Left = 4
              Top = 59
              Width = 138
              Height = 22
              Ctl3D = False
              DataField = 'ITENSPED_NUMERO_PEDIDO'
              DataSource = dsItensPedidoContrato
              ParentCtl3D = False
              TabOrder = 0
            end
            object DBEProjeto: TDBEdit
              Left = 149
              Top = 59
              Width = 156
              Height = 22
              Ctl3D = False
              DataField = 'ITENSPED_NUMERO_PROJETO'
              DataSource = dsItensPedidoContrato
              ParentCtl3D = False
              TabOrder = 1
            end
          end
        end
      end
    end
  end
  inherited PopupMenu1: TPopupMenu
    Left = 712
    Top = 232
  end
  inherited dsCadastro: TDataSource
    Left = 488
    Top = 192
  end
  inherited QCadastro: TQuery
    Active = True
    SQL.Strings = (
      'SELECT * FROM PEDIDOCONTRATO')
    Left = 136
    Top = 352
  end
  inherited dspCadastro: TDataSetProvider
    Left = 784
    Top = 176
  end
  inherited cdsCadastro: TClientDataSet
    Active = True
    Left = 480
    Top = 320
    object cdsCadastroPED_CODIGO: TIntegerField
      Alignment = taCenter
      DisplayLabel = 'C'#243'digo'
      FieldName = 'PED_CODIGO'
    end
    object cdsCadastroPED_CONTRATO: TIntegerField
      DisplayLabel = 'Contrato'
      FieldName = 'PED_CONTRATO'
    end
    object cdsCadastroPED_DATA: TDateTimeField
      Alignment = taCenter
      DisplayLabel = 'Data'
      FieldName = 'PED_DATA'
    end
    object cdsCadastroPED_AREA: TIntegerField
      DisplayLabel = 'Ar'#233'a Atua'#231#227'o'
      FieldName = 'PED_AREA'
    end
    object cdsCadastroPED_MUNICIPIO: TIntegerField
      DisplayLabel = 'Municipio'
      FieldName = 'PED_MUNICIPIO'
    end
    object cdsCadastroPED_REIDI: TIntegerField
      DisplayLabel = 'Ind. REIDI'
      FieldName = 'PED_REIDI'
    end
    object cdsCadastroPED_SITUACAO: TIntegerField
      FieldName = 'PED_SITUACAO'
    end
    object cdsCadastroUSUARIO: TStringField
      FieldName = 'USUARIO'
      Size = 10
    end
    object cdsCadastroDATAMODIFICACAO: TDateTimeField
      FieldName = 'DATAMODIFICACAO'
    end
    object cdsCadastroCODIGOEMPRESA: TIntegerField
      FieldName = 'CODIGOEMPRESA'
    end
    object cdsCadastroUSUARIO_CADASTRO: TStringField
      FieldName = 'USUARIO_CADASTRO'
    end
    object cdsCadastroUSUARIO_AUTERACAO: TStringField
      FieldName = 'USUARIO_AUTERACAO'
    end
    object cdsCadastroUSUARIO_EXCLUSAO: TStringField
      FieldName = 'USUARIO_EXCLUSAO'
    end
    object cdsCadastroDATA_CADASTRO: TDateTimeField
      FieldName = 'DATA_CADASTRO'
    end
    object cdsCadastroDATA_EXCLUSAO: TDateTimeField
      FieldName = 'DATA_EXCLUSAO'
    end
    object cdsCadastroDATA_AUTERACAO: TDateTimeField
      FieldName = 'DATA_AUTERACAO'
    end
    object cdsCadastroUSUARIO_RECUPERACAO: TStringField
      FieldName = 'USUARIO_RECUPERACAO'
    end
    object cdsCadastroDATA_RECUPERACAO: TDateTimeField
      FieldName = 'DATA_RECUPERACAO'
    end
    object cdsCadastroSITUACAO_DA_REPLICACAO: TStringField
      FieldName = 'SITUACAO_DA_REPLICACAO'
      Size = 1
    end
    object cdsCadastroDATA_REPLICACAO: TDateTimeField
      FieldName = 'DATA_REPLICACAO'
    end
    object cdsCadastroEXCLUIDO: TStringField
      FieldName = 'EXCLUIDO'
      Size = 1
    end
    object cdsCadastroPED_COD_NOTAFISCAL: TIntegerField
      Alignment = taCenter
      FieldName = 'PED_COD_NOTAFISCAL'
    end
    object cdsCadastroPED_NUMERO_NF: TStringField
      Alignment = taCenter
      DisplayLabel = 'N'#186' Nota Fiscal'
      FieldName = 'PED_NUMERO_NF'
      Size = 15
    end
    object cdsCadastroPED_CLIENTE: TIntegerField
      FieldName = 'PED_CLIENTE'
    end
    object cdsCadastroPED_FASE_PEDIDO: TIntegerField
      FieldName = 'PED_FASE_PEDIDO'
    end
    object cdsCadastroPED_NUMERO_RPS: TIntegerField
      Alignment = taCenter
      DisplayLabel = 'N'#186' RPS'
      FieldName = 'PED_NUMERO_RPS'
    end
    object cdsCadastroPED_CONTRATO_DESC: TStringField
      DisplayLabel = 'Contrato'
      FieldName = 'PED_CONTRATO_DESC'
      Size = 60
    end
    object cdsCadastroPED_NUMERO_PEDIDO: TStringField
      FieldName = 'PED_NUMERO_PEDIDO'
      Size = 15
    end
    object cdsCadastroPED_DESCRICAO: TStringField
      FieldName = 'PED_DESCRICAO'
      Size = 60
    end
    object cdsCadastroPED_NUMERO_PROJETO: TStringField
      FieldName = 'PED_NUMERO_PROJETO'
    end
    object cdsCadastroPED_SERVICO: TMemoField
      FieldName = 'PED_SERVICO'
      BlobType = ftMemo
      Size = 1000
    end
    object cdsCadastroPED_CENTRO_CUSTO: TIntegerField
      FieldName = 'PED_CENTRO_CUSTO'
    end
  end
  inherited dsCamposPesquisa: TDataSource
    Left = 288
    Top = 448
  end
  inherited OpenDialog1: TOpenDialog
    Left = 664
    Top = 224
  end
  object QCliente: TQuery
    Active = True
    BeforeInsert = QCadastroBeforeInsert
    BeforeEdit = QCadastroBeforeEdit
    BeforePost = QCadastroBeforePost
    BeforeCancel = QCadastroBeforeCancel
    BeforeDelete = QCadastroBeforeDelete
    DatabaseName = 'base'
    SQL.Strings = (
      'select * from cliente'
      'where'
      '((cliente.excluido <> '#39'S'#39')OR (cliente.excluido is null))')
    Left = 552
    Top = 296
  end
  object DSCliente: TDataSource
    AutoEdit = False
    DataSet = QCliente
    OnStateChange = dsCadastroStateChange
    OnDataChange = dsCadastroDataChange
    Left = 416
    Top = 144
  end
  object QContrato: TQuery
    Active = True
    BeforeInsert = QCadastroBeforeInsert
    BeforeEdit = QCadastroBeforeEdit
    BeforePost = QCadastroBeforePost
    BeforeCancel = QCadastroBeforeCancel
    BeforeDelete = QCadastroBeforeDelete
    DatabaseName = 'base'
    SQL.Strings = (
      'select * from contrato'
      'where'
      '((excluido <> '#39'S'#39')OR (excluido is null))')
    Left = 224
    Top = 432
  end
  object DSContrato: TDataSource
    AutoEdit = False
    DataSet = QContrato
    OnStateChange = dsCadastroStateChange
    OnDataChange = dsCadastroDataChange
    Left = 720
    Top = 184
  end
  object QArea: TQuery
    Active = True
    BeforeInsert = QCadastroBeforeInsert
    BeforeEdit = QCadastroBeforeEdit
    BeforePost = QCadastroBeforePost
    BeforeCancel = QCadastroBeforeCancel
    BeforeDelete = QCadastroBeforeDelete
    DatabaseName = 'base'
    SQL.Strings = (
      'select * from area_atuacao'
      'where'
      '((excluido <> '#39'S'#39')OR (excluido is null))')
    Left = 256
    Top = 320
  end
  object DSArea: TDataSource
    AutoEdit = False
    DataSet = QArea
    OnStateChange = dsCadastroStateChange
    OnDataChange = dsCadastroDataChange
    Left = 608
    Top = 344
  end
  object QMunicipio: TQuery
    Active = True
    BeforeInsert = QCadastroBeforeInsert
    BeforeEdit = QCadastroBeforeEdit
    BeforePost = QCadastroBeforePost
    BeforeCancel = QCadastroBeforeCancel
    BeforeDelete = QCadastroBeforeDelete
    DatabaseName = 'base'
    SQL.Strings = (
      'Select'
      'municipio.mu_vcnome ||'#39' - '#39'|| municipio.mu_uf as NOME,'
      'municipio.*'
      ' From Municipio'
      'where'
      '(municipio.excluido <> '#39'S'#39')or(municipio.excluido is null)'
      'order By municipio.mu_vcnome')
    Left = 344
    Top = 328
  end
  object DSMunicipio: TDataSource
    AutoEdit = False
    DataSet = QMunicipio
    OnStateChange = dsCadastroStateChange
    OnDataChange = dsCadastroDataChange
    Left = 640
    Top = 216
  end
  object cdsItensPedidoContrato: TClientDataSet
    Active = True
    Aggregates = <>
    IndexFieldNames = 'ITENSPED_PEDIDOCONTRATO'
    MasterFields = 'PED_CODIGO'
    MasterSource = dsCadastro
    PacketRecords = 0
    Params = <>
    ProviderName = 'dspItensPedidoContrato'
    Left = 417
    Top = 255
    object cdsItensPedidoContratoITENSPED_CODIGO: TIntegerField
      DisplayLabel = 'C'#243'digo'
      FieldName = 'ITENSPED_CODIGO'
    end
    object cdsItensPedidoContratoITENSPED_ENCARREGADO: TIntegerField
      FieldName = 'ITENSPED_ENCARREGADO'
    end
    object cdsItensPedidoContratoITENSPED_SERVICO: TIntegerField
      DisplayLabel = 'Servi'#231'o'
      FieldName = 'ITENSPED_SERVICO'
    end
    object cdsItensPedidoContratoITENSPED_VALORTOTAL: TFloatField
      DisplayLabel = 'Vr. Total'
      FieldName = 'ITENSPED_VALORTOTAL'
      DisplayFormat = '0,.00'
    end
    object cdsItensPedidoContratoUSUARIO_CADASTRO: TStringField
      FieldName = 'USUARIO_CADASTRO'
    end
    object cdsItensPedidoContratoUSUARIO_AUTERACAO: TStringField
      FieldName = 'USUARIO_AUTERACAO'
    end
    object cdsItensPedidoContratoUSUARIO_EXCLUSAO: TStringField
      FieldName = 'USUARIO_EXCLUSAO'
    end
    object cdsItensPedidoContratoDATA_CADASTRO: TDateTimeField
      FieldName = 'DATA_CADASTRO'
    end
    object cdsItensPedidoContratoDATA_EXCLUSAO: TDateTimeField
      FieldName = 'DATA_EXCLUSAO'
    end
    object cdsItensPedidoContratoDATA_AUTERACAO: TDateTimeField
      FieldName = 'DATA_AUTERACAO'
    end
    object cdsItensPedidoContratoEXCLUIDO: TStringField
      FieldName = 'EXCLUIDO'
      Size = 1
    end
    object cdsItensPedidoContratoUSUARIO_RECUPERACAO: TStringField
      FieldName = 'USUARIO_RECUPERACAO'
    end
    object cdsItensPedidoContratoDATA_RECUPERACAO: TDateTimeField
      FieldName = 'DATA_RECUPERACAO'
    end
    object cdsItensPedidoContratoSITUACAO_DA_REPLICACAO: TStringField
      FieldName = 'SITUACAO_DA_REPLICACAO'
      Size = 1
    end
    object cdsItensPedidoContratoCODIGOEMPRESA: TIntegerField
      FieldName = 'CODIGOEMPRESA'
    end
    object cdsItensPedidoContratoDATA_REPLICACAO: TDateTimeField
      FieldName = 'DATA_REPLICACAO'
    end
    object cdsItensPedidoContratoITENSPED_PEDIDOCONTRATO: TIntegerField
      FieldName = 'ITENSPED_PEDIDOCONTRATO'
    end
    object cdsItensPedidoContratoITENSPED_NUMERO_PEDIDO: TStringField
      Alignment = taCenter
      DisplayLabel = 'N'#186' Pedido'
      FieldName = 'ITENSPED_NUMERO_PEDIDO'
      Size = 15
    end
    object cdsItensPedidoContratoITENSPED_NUMERO_PROJETO: TStringField
      Alignment = taCenter
      DisplayLabel = 'N'#186' Projeto'
      FieldName = 'ITENSPED_NUMERO_PROJETO'
    end
  end
  object dsItensPedidoContrato: TDataSource
    DataSet = cdsItensPedidoContrato
    OnStateChange = dsItensPedidoContratoStateChange
    OnDataChange = dsItensPedidoContratoDataChange
    Left = 809
    Top = 215
  end
  object dspItensPedidoContrato: TDataSetProvider
    DataSet = QItensPedidoContrato
    Left = 761
    Top = 351
  end
  object QItensPedidoContrato: TQuery
    DatabaseName = 'base'
    DataSource = dsCadastro
    SQL.Strings = (
      'SELECT *'
      'FROM'
      '  ITENSPEDIDOCONTRATO'
      'WHERE'
      '  (ITENSPEDIDOCONTRATO.ITENSPED_PEDIDOCONTRATO = :PED_CODIGO)')
    Left = 217
    Top = 255
    ParamData = <
      item
        DataType = ftInteger
        Name = 'ITENSPED_PEDIDOCONTRATO'
        ParamType = ptUnknown
        Value = 13
      end>
  end
  object QProduto: TQuery
    Active = True
    DatabaseName = 'base'
    SQL.Strings = (
      'select'
      '*'
      'from produto'
      'where'
      '(PROD_USO_CONSUMO = '#39'S'#39') AND'
      '((excluido <> '#39'S'#39')OR (excluido is null))'
      'order by produto.prod_descricaosai')
    Left = 281
    Top = 367
  end
  object DSProduto: TDataSource
    AutoEdit = False
    DataSet = QProduto
    OnStateChange = dsCadastroStateChange
    OnDataChange = dsCadastroDataChange
    Left = 336
    Top = 376
  end
  object QEncarregado: TQuery
    Active = True
    BeforeInsert = QCadastroBeforeInsert
    BeforeEdit = QCadastroBeforeEdit
    BeforePost = QCadastroBeforePost
    BeforeCancel = QCadastroBeforeCancel
    BeforeDelete = QCadastroBeforeDelete
    DatabaseName = 'base'
    SQL.Strings = (
      'select * from vendedor'
      'where'
      '((excluido <> '#39'S'#39')OR(excluido is null))')
    Left = 408
    Top = 304
  end
  object DSEncarregado: TDataSource
    AutoEdit = False
    DataSet = QEncarregado
    OnStateChange = dsCadastroStateChange
    OnDataChange = dsCadastroDataChange
    Left = 696
    Top = 320
  end
  object QInfo_NFs: TQuery
    Active = True
    DatabaseName = 'base'
    SQL.Strings = (
      'select '
      ' notafiscalvenda.nf_numeronf, '
      ' notafiscalvenda.nf_nrps,'
      ' nf_numero,'
      'nf_codigo'
      ' from notafiscalvenda '
      ' where '
      'NF_ORIGEM = '#39'OF'#39)
    Left = 656
    Top = 400
  end
  object DSCentro: TDataSource
    DataSet = DMFinanceiro.QCentro
    Left = 592
    Top = 168
  end
end
